home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / turbocad / V4 / tcw.z / drawing name.bas < prev    next >
BASIC Source File  |  1997-10-28  |  2KB  |  91 lines
  1. 'Program to loop through open drawings and add drawing name
  2.  
  3. Dim x As Double
  4. Dim y As Double
  5. Dim angle As Double
  6. Dim siz As Double
  7. Dim es As Double
  8. Dim es1 As Long
  9. Dim dName as String
  10. Dim Dname1 As String
  11. Dim measure As double
  12.  
  13.  
  14. Sub Main()
  15.    Dim dCount as Long
  16.    Dim hDrawing as Long
  17.    Dim i As Long
  18.  
  19.    'Get count of number of drawings open
  20.    dCount = TCWDrawingCount()
  21.  
  22.    If (dCount = 0) Then
  23.       MsgBox "No drawings open"
  24.       Stop
  25.    End If
  26.  
  27.    'Loop through open drawings
  28.        For i = 0 to dCount -1
  29.  
  30.       'activate drawing "i"
  31.       hDrawing = TCWDrawingAt(i)
  32.        measure = Abs(TCWViewExtentsGetY2() - TCWViewExtentsGetY1())/8.6    
  33.     
  34.       'Get drawing name
  35.       TCWDrawingName dName
  36.       es1=20*measure
  37.       es=es1/100
  38.       'Prompt for location and angle of text
  39.       MyDialog
  40.  
  41.       'Calculate angle in radians for text
  42.       angle = angle * 3.14159265359
  43.       angle = angle / 180
  44.  
  45.       'Write the name on the drawing
  46.       TCWText x, y, 0.0, dName1, siz, angle
  47.       Next i
  48. MsgBox "Finished"
  49. End Sub
  50.  
  51. Sub MyDialog()
  52.   Begin Dialog MyUI 60, 60, 240, 105, "Add Drawing Name"
  53.  
  54.      Text                    10, 11, 60, 10,       "Drawing Name:"
  55.      TextBox    65, 10, 165, 10,    .Dnm
  56.  
  57.      Text        10, 21, 110, 10,    "X Coordinate for name:"
  58.      TextBox    110, 20, 40, 10,    .x
  59.  
  60.      Text        10, 31, 110, 10,    "Y Coordinate for name:"
  61.      TextBox    110, 30, 40,  10,    .y
  62.  
  63.      Text        10, 41, 110, 10,    "Size to print text (in):"
  64.      TextBox    110, 40, 40, 10,    .sizeT
  65.  
  66.      Text        10, 51, 110, 10,    "Angle to print text (in degrees):"
  67.      TextBox    110, 50, 40, 10,    .angle
  68.      
  69.     OKbutton     80, 80, 40, 12
  70.     CancelButton      120, 80, 40, 12
  71.   End Dialog 
  72.  
  73.   Dim Dlg1 As MyUI
  74.   Dlg1.x = es
  75.   Dlg1.y = es
  76.   Dlg1.angle = 90.0
  77.   Dlg1.sizeT=es
  78.   Dlg1.Dnm=dName
  79.   button = Dialog(Dlg1)
  80.  
  81.   if button = 0 then
  82.  Stop
  83.  end If
  84.    
  85.      siz=Dlg1.sizeT
  86.      x = Dlg1.x
  87.      y = Dlg1.y
  88.      angle = Dlg1.angle
  89.     dName1= Dlg1.Dnm
  90. End Sub
  91.